Release 10.1A: OpenEdge Development:
ADM Reference


deletePage

Procedure that deletes all the objects on the specified page.

Location: containr.p

Parameters:

INPUT piPageNum AS INTEGER

Number of page to be purged.

Notes:

ON CHOOSE OF Btn_Delete_Page
DO:
  DEFINE VARIABLE lAnswer AS LOGICAL NO-UNDO.
  DEFINE VARIABLE iPage AS INTEGER NO-UNDO.
  /* Get the current page number, and delete it. */
  iPage = getCurrentPage().
  MESSAGE "OK to delete page" STRING(iPage) + "?"
     VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO UPDATE lAnswer.
  IF lAnswer THEN RUN deletePage(iPage).
END. 


Copyright © 2005 Progress Software Corporation
www.progress.com
Voice: (781) 280-4000
Fax: (781) 280-4095